home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok72.lha / while-Interpreter / Source / QuadLese.DEF < prev    next >
Text File  |  1993-08-15  |  1KB  |  42 lines
  1. (******************************
  2.  * Programm von Dieter Seidel *
  3.  *  Eingegeben am 14.11.1991  *
  4.  * Berechnet die Quadrupel-   *
  5.  * darstellung eines einge-   *
  6.  * gebenen while-Programs und *
  7.  * fuehrt dieses dann aus.    *
  8.  ******************************)
  9.  
  10. DEFINITION MODULE QuadLese;
  11.  
  12.  
  13. CONST MaxBefehle = 200; (* Grenze fuer die Anzahl der Befehle die eingegeben *)
  14.                         (* werden kann. Effektiv ist es aber nur die Anzahl  *)
  15.                         (* der Zeichen der einzelnen Befehle.                *)
  16.       MaxQuad    = 50;
  17.       MaxZeile   = 10;  (* Anzahl der Zeichen je Quadrupel-Befehl.           *)
  18.       
  19. TYPE WhileBegin = RECORD
  20.                     while,
  21.                     begin       : BOOLEAN;
  22.                     whileZeiger : CARDINAL;
  23.                   END;
  24.      arrZeile   = ARRAY [1..MaxZeile] OF CHAR;
  25.      QuadZeile  = RECORD
  26.                      Zeile      : CARDINAL;
  27.                      Befehl     : arrZeile;
  28.                      IFzeile    : CARDINAL;
  29.                      ELSEzeile  : CARDINAL;
  30.                    END;
  31.      arrQuad    = ARRAY [1..MaxQuad] OF QuadZeile;
  32.      arrList    = ARRAY [1..MaxBefehle] OF CHAR;
  33.  
  34. VAR   QuadListe    : arrQuad;
  35.       BefehlsListe : arrList;
  36.  
  37.  
  38. PROCEDURE Lese(VAR Liste : arrList);
  39.  
  40. END QuadLese.
  41.  
  42.